home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / bind2.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  195 b   |  8 lines
  1. ;; More event binding
  2.  
  3. (entry '.e1 :relief "sunken")
  4. (pack .e1 :expand #t :fill "x")
  5.  
  6. (bind .e1 "<Enter>" (lambda () (display "ENTERED\n")))
  7. (bind .e1 "<Leave>" (lambda () (display "EXITED\n")))
  8.